home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / segal / segal.P < prev    next >
Encoding:
Text File  |  1992-12-25  |  5.0 KB  |  163 lines
  1. ;GIL-3
  2. (
  3.     :interfaces             (file.G filter.G image_reg.G list.G mask_grow.G mask_log.G paint.G preferences.G threshold.G view.G )
  4.     :actions                (
  5.         (
  6.         :from                   (view.G menu_image)
  7.         :when                   (Notify )
  8.         :to                     (file.G pop_new_mask)
  9.         :function_type          :user_defined
  10.         :arg_type               ()
  11.         :action                 (Show)
  12.         )
  13.         (
  14.         :from                   (view.G menu_segment "Filter ...")
  15.         :when                   (Notify )
  16.         :to                     (filter.G pop_filter)
  17.         :function_type          :user_defined
  18.         :arg_type               ()
  19.         :action                 (Show)
  20.         )
  21.         (
  22.         :from                   (view.G menu_preferences "Display ...")
  23.         :when                   (Notify )
  24.         :to                     (preferences.G pop_preferences_display)
  25.         :function_type          :user_defined
  26.         :arg_type               ()
  27.         :action                 (Show)
  28.         )
  29.         (
  30.         :from                   (view.G menu_segment "Mask growing ...")
  31.         :when                   (Notify )
  32.         :to                     (mask_grow.G pop_mask_grow)
  33.         :function_type          :user_defined
  34.         :arg_type               ()
  35.         :action                 (Show)
  36.         )
  37.         (
  38.         :from                   (view.G menu_image)
  39.         :when                   (Notify )
  40.         :to                     (mask_log.G pop_mask_log)
  41.         :function_type          :user_defined
  42.         :arg_type               ()
  43.         :action                 (Show)
  44.         )
  45.         (
  46.         :from                   (view.G menu_image)
  47.         :when                   (Notify )
  48.         :to                     (file.G pop_load_image)
  49.         :function_type          :user_defined
  50.         :arg_type               ()
  51.         :action                 (Show)
  52.         )
  53.         (
  54.         :from                   (mask_log.G menu_mask "Load ...")
  55.         :when                   (Notify )
  56.         :to                     (file.G pop_load_mask)
  57.         :function_type          :user_defined
  58.         :arg_type               ()
  59.         :action                 (Show)
  60.         )
  61.         (
  62.         :from                   (mask_log.G menu_mask "New ...")
  63.         :when                   (Notify )
  64.         :to                     (file.G pop_new_mask)
  65.         :function_type          :user_defined
  66.         :arg_type               ()
  67.         :action                 (Show)
  68.         )
  69.         (
  70.         :from                   (mask_log.G menu_mask "Save as ...")
  71.         :when                   (Notify )
  72.         :to                     (file.G pop_save_as)
  73.         :function_type          ExecuteCode
  74.         :arg_type               (:string)
  75.         :action                 ("xv_set(File_pop_save_as->pop_save_as,
  76.     XV_SHOW, TRUE,
  77.     NULL);
  78. ")
  79.         )
  80.         (
  81.         :from                   (view.G menu_image "List ...")
  82.         :when                   (Notify )
  83.         :to                     (list.G pop_list)
  84.         :function_type          :user_defined
  85.         :arg_type               ()
  86.         :action                 (Show)
  87.         )
  88.         (
  89.         :from                   (view.G menu_segment "Threshold ...")
  90.         :when                   (Notify )
  91.         :to                     (threshold.G pop_threshold)
  92.         :function_type          :user_defined
  93.         :arg_type               ()
  94.         :action                 (Show)
  95.         )
  96.         (
  97.         :from                   (view.G menu_image)
  98.         :when                   (Notify )
  99.         :to                     (file.G pop_save_image)
  100.         :function_type          :user_defined
  101.         :arg_type               ()
  102.         :action                 (Show)
  103.         )
  104.         (
  105.         :from                   (view.G win set_mode "Register")
  106.         :when                   (Notify )
  107.         :to                     (paint.G win_paint)
  108.         :function_type          :user_defined
  109.         :arg_type               ()
  110.         :action                 (Hide)
  111.         )
  112.         (
  113.         :from                   (view.G menu_masks "Load ...")
  114.         :when                   (Notify )
  115.         :to                     (file.G pop_load_mask)
  116.         :function_type          :user_defined
  117.         :arg_type               ()
  118.         :action                 (Show)
  119.         )
  120.         (
  121.         :from                   (view.G menu_masks "New ...")
  122.         :when                   (Notify )
  123.         :to                     (file.G pop_new_mask)
  124.         :function_type          :user_defined
  125.         :arg_type               ()
  126.         :action                 (Show)
  127.         )
  128.         (
  129.         :from                   (view.G menu_masks "Mask log ...")
  130.         :when                   (Notify )
  131.         :to                     (mask_log.G pop_mask_log)
  132.         :function_type          :user_defined
  133.         :arg_type               ()
  134.         :action                 (Show)
  135.         )
  136.         (
  137.         :from                   (view.G menu_masks "Save as ...")
  138.         :when                   (Notify )
  139.         :to                     (file.G pop_save_as)
  140.         :function_type          :user_defined
  141.         :arg_type               ()
  142.         :action                 (Show)
  143.         )
  144.         (
  145.         :from                   (view.G menu_image "Load ...")
  146.         :when                   (Notify )
  147.         :to                     (file.G pop_load_image)
  148.         :function_type          :user_defined
  149.         :arg_type               ()
  150.         :action                 (Show)
  151.         )
  152.         (
  153.         :from                   (view.G menu_image "Save as ...")
  154.         :when                   (Notify )
  155.         :to                     (file.G pop_save_image)
  156.         :function_type          :user_defined
  157.         :arg_type               ()
  158.         :action                 (Show)
  159.         )
  160.     )
  161.     :root_window            nil
  162. )
  163.